home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / em7sui_1 / em7sui~1.exe / TextListTest.wr_ / TextListTest.wr
Text File  |  1998-10-22  |  2KB  |  77 lines
  1. #VRML V2.0 utf8
  2.  
  3. # Copyright Electrohouse 1998
  4.  
  5. # This file may not be copied, modified or distributed
  6. # in any way which violates the ProtoPak licensing 
  7. # agreement established by Electrohouse.  
  8.  
  9. EXTERNPROTO Blue [ exposedField SFFloat transparency ] "..\Appearances\SummerMaterials.wrl#color19"
  10.  
  11. EXTERNPROTO em7_TextList [
  12.     exposedField SFNode appearance
  13.     field MFString string
  14.     field SFFloat textHeight
  15.     field SFFloat textGap
  16.     field SFInt32 visibleCount
  17.     field SFInt32 topIndex
  18.     exposedField MFFloat length
  19.     exposedField SFFloat maxExtent
  20.     field SFString family
  21.     field SFString style
  22.     field MFString justify
  23.     field SFBool horizontal
  24.     field SFBool leftToRight
  25.     field SFBool topToBottom
  26.     field SFString language
  27.     eventIn MFString set_string
  28.     eventIn MFString addStrings
  29.     eventIn SFInt32 set_visibleCount
  30.     eventIn SFInt32 set_topIndex
  31.     eventOut MFString visibleText_changed
  32.     eventOut SFInt32 topIndex_changed
  33.     eventOut SFInt32 listRange_changed
  34. ] "..\VR_UI.wrl#em7_TextList"
  35.  
  36. EXTERNPROTO em7_Slider [
  37.     field SFFloat height
  38.     field SFFloat radius
  39.     field SFInt32 min
  40.     field SFInt32 max
  41.     field SFInt32 value
  42.     eventIn SFInt32 set_min
  43.     eventIn SFInt32 set_max
  44.     eventIn SFInt32 set_value
  45.     eventOut SFInt32 value_changed
  46. ] "..\VR_UI.wrl#em7_Slider"
  47.  
  48.  
  49. Transform {
  50.     translation -1.5 -2.5 0
  51.     children [
  52.         DEF MY_TEXT em7_TextList {
  53.             appearance Blue {}
  54.             string ["This", "is", "a", "test", "of", "the", "text", "list", "node", "hooked", "up", "to", "a", "slider", "node"]
  55.             textHeight 0.75
  56.             textGap 0.25
  57.             visibleCount 5
  58.             justify ["BEGIN", "END"]
  59.         }
  60.     ]
  61. }    
  62.     
  63. Transform {
  64.     translation 1 2.5 0
  65.     rotation 1 0 0 3.14159
  66.     children [
  67.         DEF MY_SLIDER em7_Slider {
  68.             height 5
  69.             radius 0.1
  70.             min 0
  71.         }
  72.     ]
  73. }
  74.  
  75. ROUTE MY_TEXT.listRange_changed TO MY_SLIDER.set_max
  76. ROUTE MY_SLIDER.value_changed TO MY_TEXT.set_topIndex
  77.